МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ Національний університет «Львівська політехніка»

РОБОТА З ФАЙЛАМИ. ЛАБОРАТОРНА РОБОТА № 4 З КУРСУ «АЛГОРИТМІЧНІ МОВИ І ПРОГРАМУВАННЯ» для студентів спеціальності 6.0914 «Комп’ютеризовані системи, автоматика і управління» Львів 2008 ПОВНИЙ ТЕКСТ ЗАВДАННЯ Дано текстовий файл в якому міститься програма мовою Турбо Паскаль (Лабораторна робота №3). Словами є слова в коментарях, назви ідентифікаторів, зарезервовані слова, які розділяються між собою згідно із синтаксисом мови Турбо Паскаль. Написати програму мовою Турбо Паскаль обробки текстового файлу з використанням розроблених процедур та функцій для роботи зі стрічками. Сформувати із заданого текстовий файл в якому вилучити символи “(”, “)”. Написати підпрограму, яка здійснює аналіз програми мовою Паскаль, представленої у вигляді заданого текстового файлу на наявність помилок по написанню процедур введення “READ”, “READLN”. Перевірити заданий та одержаний текстові файли на наявність помилок в процедурах введення. БЛОК-СХЕМА АЛГОРИТМУ ПРОГРАМИ ПРОЦЕДУРА ПОШУКУ ПОМИЛКИ ERROR_SEARCH : СПИСОК ІДЕНТИФІКАТОРІВ КОНСТАНТ, ЗМІННИХ, ПРОЦЕДУР ТА ФУНКЦІЙ, ВИКОРИСТАНИХ У ПРОГРАМІ, ТА ЇХ ПОЯСНЕННЯ СПИСОК : CH CHECK SYMBOL X Y I V K C M N ERROR_SEARCH ПОЯСНЕННЯ ІДЕНТИФІКАТОРІВ : CH – змінна для зберігання символів файлу під час читання CHECK – змінна для накопичення символів під час читання у змінній SYMBOL SYMBOL – накопичувач символів для порівняння X – ідентифікатор текстового файлу Lab_3 – з якого читаються дані Y – ідентифікатор текстового файлу Lab_3(Copied) – куди записуються дані I – лічильник для накопичення у SYMBOL V – логічна змінна для перевірки вірності умови K – логічна змінна для перевірки вірності умови C – логічна змінна для перевірки вірності умови M – логічна змінна для перевірки вірності умови N – логічна змінна для перевірки вірності умови ERROR_SEARCH – процедура сортування матриці A Змінні V,K,C,M,N – ВИКОРИСТОВУЮТЬСЯ У ДВОХ ПІДПРОГРАМАХ ДЛЯ ДІАГНОСТИКИ ПОМИЛКИ : ПЕРЕВІРКА НАЯВНОСТІ ДУЖОК СИНТАКСИС ПРОЦЕДУРИ ЯК ЗАРЕЗЕРВОВАНОГО СЛОВА НАЯВНІСТЬ ; ПОСЛІДОВНОСТІ У ДУЖКАХ ТИПУ : ІДЕНТИФІКАТОР , … ОСТАТОЧНО ВІДЛАГОДЖЕНИЙ ТЕКСТ ПРОГРАМИ program Lab_4; uses crt; var ch:char; check,symbol:string; x,y:text; i:integer; v,k,c,m,n:boolean; procedure Error_Search; begin writeln('Program file check :'); assign(y,'d:\lab_3(copied).txt'); writeln; writeln('External Read procedure Analyse'); reset(y); while not(eof(y)) do begin read(y,ch); check:=ch; symbol:=''; if(ch='r') then for i:=1 to 4 do begin symbol:=(Symbol+check);read(y,ch);check:=ch;end; if symbol='read' then begin k:=true;if ch='(' then m:=true; repeat if ch='(' then c:=true;if ch=')' then begin v:=true;read(y,ch); if ch=';' then n:=true;end; read(y,ch); until eoln(y); end; end; if (c=true)and(m=true) then writeln('Left ( present') else if k=true then writeln('Error.No symbol ('); if v=true then writeln('Right ) present') else if k=true then writeln('Error.No symbol )'); if k=false then writeln('Syntax read as word false.Analyse aborted') else writeln('Syntax read as word true'); if v=true then if n=true then writeln('Symbol ; present in order for read procedure') else writeln('No symbol ;.Error.Syntax read procedure false') else if k=true then writeln('Error.Can not finish symbol ; check - there is no )'); reset(y); Writeln; writeln; writeln('Internal Procedure read analyse'); while not(eof(y)) do begin ...